home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / menu.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  62 lines
  1. 10 POKE53280,1:POKE53281,1:POKE53272,21:CLR:REM C64 MODS 1983 BY WIM
  2. 20 PRINT"[144][147]"
  3. 30 POKE46,64
  4. 40 POKE72,64
  5. 50 POKE50,64:CLR
  6. 60 C$=CHR$(13):P$=CHR$(34)
  7. 70 N$=""
  8. 80 PRINT"          LOADING DIRECTORY"
  9. 90 PRINT"           --PLEASE WAIT--"
  10. 100 DIM F$(155)
  11. 110 FOR J=0TO 49
  12. 120 F$(J)=""
  13. 130 NEXT
  14. 140 J=0
  15. 150 OPEN 8,8,0,"$0"
  16. 160 GOSUB 420
  17. 170 PRINT"[145][145][145][145][145][145]                 FOR"
  18. 180 PRINT"           ";F$(0);"[146]"
  19. 190 J=1
  20. 200 GOSUB 420
  21. 210 F$(1)=""
  22. 220 EF=0
  23. 230 GOSUB 420
  24. 240 IF EF=0 THEN J=J+1:GOTO 230
  25. 250 T=J-1
  26. 260 CLOSE8
  27. 270 PRINT"[147]"
  28. 280 J=1:EF=0
  29. 290 GOSUB 500
  30. 300 IF EF=0 GOTO 290
  31. 310 PRINT
  32. 320 PRINT"PRESS RETURN KEY TO SEE NEXT DISK OR"
  33. 330 PRINT"CHOOSE A PROGRAM ( 1 TO ";T;")";
  34. 340 INPUT"[160][160][160][160][157][157][157]";A$:N=VAL(A$)
  35. 350 IF N>0 AND N<=T GOTO 400
  36. 360 PRINT"[147]PUT NEW DISK IN DRIVE #0 AND"
  37. 370 PRINT"PRESS RETURN KEY WHEN DONE[160][160][160][160][160][160][157][157][157][157][157]";:INPUTA$
  38. 380 OPEN15,8,15:PRINT#15,"I0"
  39. 390 RUN
  40. 400 PRINT"[147]LOADING  ";F$(N);"[146]"
  41. 410 LOAD F$(N),8
  42. 420 GET#8,A$:IFA$<>N$THEN420
  43. 430 GET#8,A$:IFA$<>N$THEN460
  44. 440 GET#8,A$:IFA$<>N$THEN460
  45. 450 GET#8,A$:IFA$=N$THENEF=1:RETURN
  46. 460 IFA$<>P$THEN430
  47. 470 GET#8,A$:IFA$=P$THEN490
  48. 480 F$(J)=F$(J)+A$:GOTO470
  49. 490 RETURN
  50. 500 JA$=STR$(J):JB$=STR$(J+1)
  51. 510 PRINT "";RIGHT$(JA$,2);"[146]";TAB(3);F$(J);
  52. 520 IF(J=35)OR(J=75)OR(J=115)THENGOSUB1000
  53. 525 IF F$(J+1)=""THEN PRINT:GOTO 540
  54. 530 PRINTTAB(20);"";RIGHT$(JB$,2);"[146]";TAB(23);F$(J+1)
  55. 540 IF J>T-2 THEN EF=1
  56. 550 J=J+2
  57. 560 RETURN
  58. 1000 PRINT:PRINT"C[146]ONTINUE OR S[146]ELECT?"
  59. 1010 GETAA$:IFAA$="C"THENPRINT"[147]":RETURN
  60. 1020 IFAA$="S"THEN310
  61. 1030 GOTO1010
  62.